home *** CD-ROM | disk | FTP | other *** search
/ SPACE 1 / SPACE - Library 1 - Volume 1.iso / demos / 10 / logoprg / diskdemo.log < prev    next >
Encoding:
Text File  |  1986-04-18  |  776 b   |  27 lines
  1. TO D
  2. HT CS SETPAL 0 [0 0 0]
  3. SETPAL 1 [1000 1000 1000]
  4. MAKE "XY [-150 50 -50 50 50 50 150 50 -150 -50 -50 -50 50 -50 150 -50 -10 0 0 0 0 100 0]
  5. MAKE "XYP [1 2 3 4 5 6 7 8 9 10 11]
  6. MAKE "XYPS SHUFFLE :XYP MAKE "P 1
  7. REPEAT 11 [MAKE "X ITEM (2 * (ITEM :P :XYPS) - 1) :XY MAKE "Y ITEM (2 * (ITEM :P :XYPS)) :XY DISK MAKE "P :P + 1]
  8. LABEL "L1 PALETTE GO "L1
  9. END
  10.  
  11. TO DISK
  12. MAKE "RAD 1
  13. REPEAT 50 [SETPC RANDOM 16 CIRCLE (SE :X :Y :RAD) PALETTE MAKE "RAD :RAD + 1]
  14. END
  15.  
  16. TO PALETTE
  17. SETPAL (3 + RANDOM 13) (SE RANDOM 1000 RANDOM 1000 RANDOM 1000)
  18. END
  19.  
  20. MAKE "Y -50
  21. MAKE "X 150
  22. MAKE "RAD 51
  23. MAKE "XYPS [1 11 10 9 4 2 6 7 3 5 8]
  24. MAKE "P 12
  25. MAKE "XY [-150 50 -50 50 50 50 150 50 -150 -50 -50 -50 50 -50 150 -50 -10 0 0 0 0 100 0]
  26. MAKE "XYP [1 2 3 4 5 6 7 8 9 10 11]
  27.